home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / sine blobs 4 < prev    next >
Text File  |  1999-06-15  |  866b  |  26 lines

  1. Category: Filter Factory Gallery U
  2. Title: Sine Blobs 4...
  3. Author:  Greg Schorno
  4. Copyright: Copyright: 1996 (c) Greg Schorno
  5.  
  6. ctl[0]: Control 1
  7. ctl[1]: Control 2
  8. ctl[2]: Control 3
  9. ctl[3]: Control 4
  10. ctl[4]: Color Phase
  11. ctl[5]: Red Freq 
  12. ctl[6]:Green Freq 
  13. ctl[7]: Blue Freq 
  14. val[0]: 13
  15. val[1]: 21
  16. val[2]: 31
  17. val[3]: 49
  18. val[4]: 70
  19. val[5]: 125
  20. val[6]: 112
  21. val[7]: 118
  22. R:put((sin((m-y)*(ctl(0)-128)*16/M+cos(1/y*ctl(1)*32/M))*32+sin(y*ctl(2)*32/M+cos(1/x*ctl(3)*32/M)*32)),1),put((cos((x-y)*ctl(3)*16/M-sin(y*ctl(1)*32/M))*32+m-cos((y)*ctl(2)*64/M-sin(1/tan(x-y)*ctl(0)*32/M))*32),2),put((get(1)+get(2))*ctl(5)/128/128+val(4,-255,255),0),get(0)&256?511-(get(0)&511):get(0)&255
  23. G:put((get(1)+get(2))*ctl(6)/128/128+val(4,-255,255),0),get(0)&256?511-(get(0)&511):get(0)&255
  24. B:put((get(1)+get(2))*ctl(7)/128/128+val(4,-255,255),0),get(0)&256?511-(get(0)&511):get(0)&255
  25. A:a
  26.